Shareware Grab Bag/Shareware Grab Bag.iso/011/tprint.c

Text File | 1985-06-03 | 6KB | 297 lines

/****************************************************************
*                                                                *
*                        P R I N T                               *
*                                                                *
*                ASCII file transfer to PRN device.              *
*                                                                *
*        T. Jennings 6 Nov. 82                                   *
*          created 23 Sept. 82                                   *
*                                                                *
****************************************************************/

#include <stdio.h>
#include <ctype.h>

#define  NUL     0x00
#define  CR      0x0d
#define  LF      0x0a
#define  HT      0x09
#define  FF      0x0c
#define  DEL     0x7f

#define  PAGELEN 66
#define  BOTTOM  58
FILE *printfile, *fopen();
FILE *printer;
char cin;
int line,column;
int tabwidth;
int formfeed;
int number,lineno;
int brackets,brkt_level;
int pageno;
int printable;
int titles;
int margin;
int i;
char filename[12];

main(argc,argv)
int argc;
char **argv;
{
        fprintf(stderr,"\nFile Print Utility 6 Nov. 82\n");
        number =0;               /* dont number lines */
        titles= 0;               /* no top of page title */
        margin= 0;               /* no left margin tab */
        brackets =0;             /* dont count brackets */
        brkt_level =0;
        column =0;
        line =0;
        tabwidth =8;
        formfeed =1;
        lineno =0;               /* current line number, */
        pageno =1;
        printable =0;

        if (--argc) {
                if ((printfile=fopen(*++argv,"r")) ==NULL) {
                        fprintf(stderr,"PRINT: Can't find file '%s'.\n",*argv);
                        exit();
                }
                strcpy(filename,*argv);          /* save filename for title */

                if ((printer= fopen("PRN","w")) ==NULL) {
                        fprintf(stderr,"PRINT: Can't open LST device\n");
                        exit();
                }
                while (--argc) {         /* look for options */
                        cin= **++argv;
                        switch(tolower(cin)) {
                        case 't':
                                fprintf(stderr,"\t-Page headers\n");
                                titles= 1;
                                break;
                        case 'n':                /* line numbers */
                                fprintf(stderr,"\t-Line numbers\n");
                                number =1;
                                break;
                        case 'c':                /* C source */
                                fprintf(stderr,"\t-'C' source\n");
                                brackets =1;
                                break;
                        case 'm':
                                fprintf(stderr,"\t-Left margin\n");
                                margin= 1;
                                break;
                        default:
                                fprintf(stderr,"Illegal option: '%s'\n",*argv);
                                break;
                        }
                }
                fprintf(printer,"\033H");        /* motor on, */
                for(i=52; i>0; i--)
                        fputc(0xff,printer);
                title();
                printchar(LF);
                while ((i=fgetc(printfile)) !=EOF) {
                        cin=i;                     /* type conversion, */
                        printchar(cin);            /* print character, */
                        if (cin =='{')             /* count bracket levels, */
                                ++brkt_level;
                        if (cin == '}') {          /* if closing bracket, and */
                                if ((--brkt_level ==0) && brackets) {
                                        printchar(FF); /* top level, formfeed */
                                }
                        }
                }
                fputc(LF,printer);
                fputc(FF,printer);               /* do a formfeed, */
                fprintf(printer,"\033J");        /* motor off, */
                exit();
        }
        fprintf(stderr,"\nYou must specify a file, followed by any options");
        fprintf(stderr,"\n\tT\tTop of page headers");
        fprintf(stderr,"\n\tN\tLine numbers");
        fprintf(stderr,"\n\tC\tC source");
        fprintf(stderr,"\n\tM\tLeft margin");
        fprintf(stderr,"\nExample:  PRINT <filename> N C T M");
        exit();
}
/* Print character <C> to the printer. */

printchar(c)
char c;
{
        switch (c) {
        case LF:
                ++lineno;
                fputc(CR,printer);
                fputc(c,printer);                /* then line feed, */
                if (++line >= BOTTOM)            /* if bottom margin, */
                        printchar(FF);           /* formfeed, */
                if (number)
                        fprintf(printer,"%3d: \t",lineno);
                if (margin)
                        printchar(HT);           /* left margins */
                break;
        case FF:
                fputc(LF,printer);
                fputc(c,printer);
                line =0; ++pageno;
                title();
                break;
        default:
                fputc(c,printer);
                break;
        }
        return;
}
/* If the title flag is set, type the title across the top of the page. */

title() {
        if (titles) {
                fprintf(printer,"File: %-12s%58sPage %d\n",filename," ",pageno);
                ++line;
        }
        return;
}
     fprintf(printer,"File: %-12s%58sPage %d\n",filename," ",pageno);
                ++line;
        }
        return;
}


title() {
        if (titles) {
                fprintf(printer,"File: %-12s%58sPage %d\n",